 
procedure columna(col, ini, fin : integer);
var                   { procedimiento que llena el cuadro con los valores   }
   x, y : integer;    { iniciales escogidos al azar.  Se provee el no de la }
                      { columna a llenar y los valores iniciales y finales  }
begin
   randomize;
   y := 1;
   repeat
      z := random(fin+1);         { se toma un valor z }
      if z >= ini then            { si este es mayor que el valor inicial }
         begin                    { se procede con el resto de la condicion }
         if not found(z) then     { si este valor no esta en el arreglo }
            begin
            cuadro[col,y] := z;   { se pone en el cuadro asignado }
            y := y + 1;           { se procede al cuadr siguiente }
         end;
      end;
   until y = 6;                   { hasta que todos los cuadros de una }
end;                              { misma columna esten llenos }

 